home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / Chip Temmuz 2004.iso / program / antispam / RazorAgent_SDK / razor-agents-sdk-2.03.exe / URI-1.19 / t / mailto.t < prev    next >
Encoding:
Text File  |  2001-01-11  |  1.3 KB  |  46 lines
  1. print "1..7\n";
  2.  
  3. use URI;
  4.  
  5. $u = URI->new('mailto:gisle@aas.no');
  6.  
  7. print "not " unless $u->to eq 'gisle@aas.no' &&
  8.                     $u eq 'mailto:gisle@aas.no';
  9. print "ok 1\n";
  10.  
  11. $old = $u->to('larry@wall.org');
  12. print "not " unless $old eq 'gisle@aas.no' &&
  13.                     $u->to eq 'larry@wall.org' &&
  14.             $u eq 'mailto:larry@wall.org';
  15. print "ok 2\n";
  16.  
  17. $u->to("?/#");
  18. print "not " unless $u->to eq "?/#" &&
  19.                     $u eq 'mailto:%3F/%23';
  20. print "ok 3\n";
  21.  
  22. @h = $u->headers;
  23. print "not " unless @h == 2 && "@h" eq "to ?/#";
  24. print "ok 4\n";
  25.  
  26. $u->headers(to      => 'gisle@aas.no',
  27.             cc      => 'gisle@ActiveState.com,larry@wall.org',
  28.             Subject => 'How do you do?',
  29.         garbage => '/;?#=&',
  30. );
  31.  
  32. @h = $u->headers;
  33. print "not " unless $u->to eq 'gisle@aas.no' &&
  34.                     @h == 8 &&
  35.                     "@h" eq 'to gisle@aas.no cc gisle@ActiveState.com,larry@wall.org Subject How do you do? garbage /;?#=&';
  36. print "ok 5\n";
  37.  
  38. #print "$u\n";
  39. print "not " unless $u eq 'mailto:gisle@aas.no?cc=gisle%40ActiveState.com%2Clarry%40wall.org&Subject=How+do+you+do%3F&garbage=%2F%3B%3F%23%3D%26';
  40. print "ok 6\n";
  41.  
  42. $u = URI->new("mailto:");
  43. $u->to("gisle");
  44. print "not " unless $u eq 'mailto:gisle';
  45. print "ok 7\n";
  46.